home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC2.6 / M2Clock.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-29  |  462 b   |  14 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE M2Clock;  (* W. Heiz, 23-Dec-85 / 23-Dec-85 *)
  2.  
  3.   TYPE
  4.     Time = RECORD
  5.              day:         CARDINAL; (* ((year-1900)*20B + month)*40B + day *)
  6.              minute:      CARDINAL; (* hour*60 + minute *)
  7.              millisecond: CARDINAL; (* second*1000 + millisecond *)
  8.            END;
  9.  
  10.   PROCEDURE SetTime(t: Time);
  11.   PROCEDURE GetTime(VAR t: Time);
  12.  
  13. END M2Clock. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  14.